Skip to main content

Full text of "SIN (Sinclair Informations Nouvelles)"

See other formats


3 ps 55 


LE EPTFE RE ува ES 
ges праг leurs ЗЛУ 


Rédacteur: Réal Gagnon, 4870 Henri-Julien, Montréal P.Q. H2T 2E! 
(514) 845-5494 
Collaboration: Simon Rioux Louis Leclerc,J.C. Touzin,Yvon Lavoie 
Ce bulletin est conçu avec l'aide du traitement de texte QUILL 
(PSION), de TASPRINT DL (TASMAN SOFTWARE) et de GDRAW (PSION). 
L'impression se fait sur une iaprinante STAR NX-10. 


Voici une autre édition de SIN qui je l'espère sera vous 
plaire, Vous aurez peut-être renarqué que SIN subit les 
affres de l'inflation, Cette augmentation de 256 est rendue 
nécessaire à cause de l'augmentation des frais postaux et de 
frais d'impressions, Désolé, 


Dans ce numéro, Simon Rioux termine sa série 
MICRO-MUSIQUE pour le 2068 avec 2 programmes, M. Louis 
Leclerc qui est, je pense, la première personne à s'être 
procurer un 8L du moins dans la région de Québec, nous donne 
un truc pour utiliser plus efficacement les logiciels PSION. 
Comme promis dans un numéro précédent, voici comment on peut 
transformer notre 2068 en système d'alarae, Et enfin, une 
commande mystérieuse du  SUPERBASIC/ODOS qui en surprendra 
plusieurs. 


Vas cosnentaires/suggestions/trucs/articles/progs sont 


toujours trés appréciés et n'oubliez pas que sans vous, SIN 
n'a plus de raison d'être. Alors nanifestez-vous... 


А la prochaine, - ( 
á 201» > 


CLIVE SINCLAIR 


Vn — 


Comme on le sait maintenant tous, CLIVE a vendu les droits du 
SPECTRUM et du QL à AMSTRAD au mois d'avril 1986, Mais maintenant 
que fait-il? Il possède 2 compagnies. La première s'appelle 
ANARMATIC et s'occupe principalement de "SUPER CHIP", ces 
circuits pourront remplacer par exemple un disque dur de 10 
MEGABYTES par un seul circuit intégré La seconde compagnie est 
appelée MODULISER et travaille sur le projet PANDORA. Cet 
ordinateur serait portable et fonctionnerait sous CP/M: H 
devrait apparaitre au début de 1987, ceci est dit sous toute 
réserve... 


OL: LOGICIEL DE COMMUNICATION 


R&D TECHNOLOGY offre un logiciel de communication appelé BLTERM 
v2.0. 11 possède toutes les caractéristiques d'un bon logiciel de 
communication et il offre le fameux protocole XMODEM nécessaire 
pour la transmission et la réception de programme BASIC/MACHINE. 
QLTERM se vend $19.95 US. 


R&D TECHNOLOGY, 7414 E. CURNAVACA PL., TUCSON AZ 85710 USA 
CURRY COMPUTER, PO ВОХ 5607, GLENDALE AZ 83312-5607 USA 


CLUBS CANADIEN 


Voici quelques adresses de clubs canadiens dévoués à la cause des 
ordinateurs SINCLAIR. Si vous voulez vous faire des contacts, 
écrivez-leur. 


VANCOUVER SINCLAIR USERS GROUP, C/O ROD HUMPHREY (EDITOR), 2006 
HIGHVIEW PLACE, PORT MOODY, BRITISH COLUMBIA, УЗН INS. 


БКИ TIMEX SINCLAIR USER GROUP, C/O WAYNE CROWELL (EDITOR, BOX 
685, WYOMING, ONTARIO, NON 1TO 


OTTAWA-HULL TIMEX SINCLAIR USER GROUP, C/O ALAN MOORE, 1268 
MAITLAND AVE., OTTAWA, K2C 2C6. 


BL A BATTERIE... 


SHARP'S offre un kit qui permet au QL de garder l'heure et la 
date même si l'on éteint l'ordinateur. Le kit se compose d'une 
pile rechargeable, un régulateur de voltage, une résistance et 
une diode. Toutes les instructions nécessaires sont fournies. 
Veuillez cependant noter qu'il faut ouvrir votre QL pour 
installer la pile, ceci rend toutefois votre garantie nulle. Le 
kit se vend $29.95 US, 


SHARP'S INC., RT 10 BOX 459, MECHANICSVILLE, VA 23111, USA 
TEL.: 804-745-1864  (Visa/MC) 


(Envoi de Sinon Rioux} 
Pour avoir des vies infinies avec BOULDER DASH, "LOAD" jusqu'au 
deuxième écran qui apparait, puis mettre ordi OFF. et: 
10 FOR N=50000 Т0 50022:READ A: 
POKE N,A:NEXT N 
20 DATA 243,17,51,91,221,33,0,94,62,255,55 
30 DATA 205,86,5,243,62,52,50,32, 121,195, 183, 
124 
40 RANDOMIZE USR 50000 
Puis RUN et, PRESS PLAY ON TAPE !!! Aussi facile que ба. 


ج — 


{source QUANTA oct86) 


Nous avons déjà vu que le dL possède plusieurs commandes 
non-documentées, Nous allons examiné une de celle-ci qui peut 
s'avérer fort utile pour nous francophones, la commande TRA, 


TRA signifie TRANSLATE, elle sert principalement pour la 
transmission/réception série et pour l'émission de messages 
d'erreur, 


ttre option: TRA peut Être utilisé pour remplacer certains 
caractères par une séquence de Í à 3 autres caractères, TRA est 
similaire à la fonction TRANSLATE de QUILL, Sauf qu'igi nous 
sommes limité à une séquence Maximum de 3 caractères mais nous 
pouvons redéfinir les 256 caractères, Ceci est utile si vous avez 
une imprimante attachée à SERÍ car vos listing BASIC sortiront 
a&me avec des caractères spéciaux et се à partir du SUPERBASIC, 
Si par contre vous avez un MODEM, vous pouvez redéfinir les 
caractères que vous recevez, Sur les BBS, si il y a des accents, 
il y a de fortes chances que, par exemple, le "é" correspondre au 
code IBM soit 130 et non au code 131 du OL! La commande TRA 
résoudra ce problème, 


2ieme option: TRA peut être utilisé également pour 'TRAduire" les 
messages d'erreurs, de l'anglais au français par exemple, La 
syntaxe de la commande est TRA a,b. 00 a est l'adresse de ја 
table de traduction du port série et b est l'adresse des message: 


d'erreur. Si on utilise 0 alors rien n'est changé et 
l'utilisation de 1 remet la table de la КОМ en fonction. 
exemplis: TRÀ 40000,0 -> la table série est à 40000 æt les 
messages d'erreurs ne sont pas touchés, 
TRA 1,40000 -> ia table série est en ROM et les 


messages se trouve à 40000. 


Pour plus d'informations sur la commandes TRA procurez-vous le 
QUANTA du mois d'octobre 1986, 


Voici deux programmes qui utilise la commande TRA. Le premier 
installe les messages d'erreurs en français tandis que le 
deuxième vous aide à construire votre table de traduction série. 
On vous demande le code ASCII du caractère à traduire et combien 


«Correspondance des caractères spéciaux du QL et IBM PC. 


i BL sess. RL <Hre. CLAVIER IBM собе, QL code QL chre CLAVIER IBM code! 


ï 96 f Ê 156 i 128 à CTRL ESC 132 | 
i 130 à CTRL SHIFT ' 134 ï 134 ê CTRL SHIFTS 130 j 
ïi 132 à CTRL SHIFT 4 148 6013 ü CTRL ' 129 1 
i 136 ç CTRL SHIFT 9 135 i 137 п CTRL SHIFT Ô 164 | 
ï 140 á CTRL , 160 14 à CTRL - 133 i 
i 142 à CTRL . 131 ïi 1 ë CTRL / 137 1 
i 144 è CTRL 0 138 i 145 Ё CTRL Í 136 | 
i 146 ï CTRL 2 139 ï = 147 i CTRL 3 11 1 
i 148 1 CTRL 4 141 i 149 i CTRL 5 140 i 
i 150 Ó CTRL 5 162 © i CTRL 7 149 1 
i 152 б СТАЕ 8 147 183 ú CTRL 9 183 | 
1 154 ù CTRL SHIFT ; 151 ï 1939 ü CTRL ; 150 1 
1 156 B CTRL SHIFT , 225 157 t CTRL = 155 | 
i 158 ¥ CTRL SHIFT . 157 i 159 ° CTRL SHIFT / % i 
i 160 k CTRL SHIFT 2 142 i 162 A CTRL SHIFT В 143 i 
i 163 É CTRL SHIFT C 144 ïi 14 ö CTRL SHIFT D 153 i 
| 166 А CTRL SHIFT H 128 i 167 ü CTRL SHIFT 6 154 i 
i 172 a CTRL SHIFT L 224 ïi 173 ê СТА SHIFT M 235 : 
i 174 9 CTRL SHIFT N 233 ïi 1⁄7 ш CTRLSHIFTP 230 1 
i 177 T CTRL SHIFT Ü 227 ï 178 ñ СТАЕ SHIFT R 237 | 
i 179 i CTRL SHIFT S 173 i 180 è — CTRL SHIFT Т 158 i 
i 184 4 CTRL SHIFT X 1⁄4 i 183 х СТА SHIFTY 175 | 
t 186 | CTRL SHIFT Z 248 ï 187 F CTRL [ 24b 1 
i 189 3 CTRL j 26 i i 


de caractères sont nécessaire (3 maximum) et enfin les nouveaux 
codes. Avec une imprimante EPSON FX80, pour traduire le ч 
Code ? 131 
Nbre ... ? 3 
Nouveaux ... ? 101 (code de "e") 
8 (Back Space) 
96 (code de"'") 
Cependant si votre imprimante possède le mode IBM cela est 
beaucoup plus siaple. Code ? 131 
Nbre ... ? Í 
Nouveaux ... ? 130 
Pour mettre votre imprimante en mode IBM, il y a probablement des 
"DIP SWITCHes" à changer. Il faut choisir le "character set #2". 
Vous aurez également accès aux caractères grecs (бута. ..), 


Si vous avez des questions n'hésitez pas à m'écrire! 


PROGRAMME 1 


100 REMark TRA pour aessages d'erreur 

110 REMark en frangais 

120 REMark source QUANTA octBb 

130 : 

140 RESTORE 

150 startzRESPR(1024) rpointerzstart*&0 

150 POKE M start, 19195 

170 FOR i=1 TO 29 

180 POKE И start*il2,pointer-start 

190 READ a$: IF 10022 THEN a$=a$%CHR$(10) 

200 IF 1<28:РОКЕ W pointer LEN (a$) :pointerspointer*? 

210 FOR j=! ТО LEN(a$) :POKE pointer , CODE 
(a$(j))rpointerzpointer*i 

220 IF pointer/2O INT (pointer/2) :pointerzpointer*l 

230 END FOR i 

240 TRA O,start 

290 : 

260 NEM | 

270 : i 

280 DATA ' Pas complet! | 

290 DATA ‘Job invalide” | 

300 DATA 'Ménoire non-disponible' 

310 DATA 'Hors-limite' 

320 DATA 'Buffer plein’ 

330 DATA 'Canal non-ouvert' 


340 DATA 'Introuvable' 

350 DATA ‘Existe déja’ 

360 DATA 'En utilisation’ 

370 DATA "Fin de fichier’ 

380 DATA ‘Lecteur plein’ 

390 DATA ‘Mauvais nom’ 

400 DATA "Erreur de transmission’ 

410 DATA ’Formattage non-complet’ 

420 DATA "Mauvais paramètre’ 

430 DATA 'Médium corrompu ou différent’ 

440 DATA "Expression erronée’ 

450 DATA ’Débordenent’ 

460 DATA "Pas complet’ 

470 DATA 'Lecture seulement’? 

480 DATA "Ligne erronée’ 

490 DATA ’A la ligne ’ 

900 DATA ' secteurs’ 

510 DATA 'Fl...Monitor &CHR$(10)8 22... ТУ" КНЕЗ (10) 
520 DATA ' 1983 Sinclair Reseach LTD’ 

530 DATA "Execution de la boucle WHEN. ,ЕМОННЕМ' 
540 DATA 'PROC/FN remise à zéro’ 

550 DATA 'DimLunMarMerJeuVenSaa' 

560 DATA ’JanFévMarAvrMaiduidJul SepOctNovDéc”? 
370 : 

580 DEFine PROCedure update 

590 DELETE flpi trai: REMark remplace flpi_par mdvi_ si pDRIVE, 
600 SAVE flpi_tral 

610 END DEFine 


PROGRAMME 2 


10 REMark TRA2 pour transmission serie 
20 REMark source GUANTA oct86 

30 : 

40 DIM v(3) 

50 start=RESPR(1024) 

60 POKE W start, 19195 

70 table a=starttbitable _b=start+262 
80 РОКЕ И start+2,table_a-start:POKE W start+4,table b-start 
90 FÜR i=0 TO 255:POKE table a*i,i 

100 pointer-table 0+1 

110 ncodes=Ù 

120 CLS 


130 REPeat loop 

140 INPUT ‘Code ? (ENTER pour STOP) '!а$ 

150 ТЕ a$="":EXIT loop 

160  REPeat loopi 

170 INPUT 'Nombre de remplacement (1-3) ?'!n 
180 IF n20 AND n<4:EXIT loopt 

190 ЕМ REPeat loopi 

200 FOR i=í TO n 

210 INPUT ‘Code de remplacement'!(i);?2'iv(i) 
220 END FOR i 


230 IF па] 

240 РОКЕ table ata$,v(i) 

250 ELSE 

250 POKE table a*a$,0 

270 POKE pointer, а$ 

280 FOR і=1 TO n:POKE pointers, v(i) 
290 ncodes=ncodes+i 

300 painterzpainter*4 

310 END IF 


320 END REPeat loop 

330 РОКЕ table h,ncodes 

340 TRA start, 

350 SBYTES flpl tra list,start,pointer-start 
360 PRINT 'Tu recharges tes codes avec:' 

370 PRINT 'a-RESPRU :pointer-start;')' 

380 PRINT 'LBYTES flpl tra list,a': REMark mdvl si pDRIVE 
390 PRINT 'TRA a’ 

400 : 

410 DEFine PROCedure update 

420 DELETE #1р1 tra2: REMark remplace #1р1_ par advi si pDRIVE. 
430 SAVE flpi tra2 

440 END DEFins 

450 : 

460 DEFine PRüCedure test 

462 OPENS, seri 

465  REPeat loop 

470 INPUT "Cade du caractère ?'!c 

480 PRINT#5, CHR$(c}\ 

490 END REPeat loop 

300 END DEFine 


NOTE: Si vous utilisez la redéfinition des caractères avec la 
commande TRA avec QUILL, vous n'aurez pas plus besoin des 
TRANSLATES. 


Siaon Rioux nous offre comme conclusion à sa série 
MICRO-MUSIQUE, 2 programmes utilisant la commande SOUND du 
2068. Le premier est "une chanson inconnue" tandis que 
l’autre et la version du classique "La Cucaracha". Merci 
Sinon pour ta collaboration fidèle à SIN. 


———— ص ی ےی س سے سے L‏ = 


1 a Li ША me n 


7l [3 LE 


m = ha Момо 
уби n Р 


[Л 
мо e tl =a tg m TÉ 
vno ien ru 
oam тер erm ma ce UC 
Је m E «Ini Као on MEHR 
xu eedem mp 


“Гей ТТ 1 


KR Li LADA 


En ZB An 
ua ue ГӘП 
DE TA 


BEA A CNI а ~ 
ТИ “з ар 
"еч 
ann sd 
ilt еу мом لا“‎ 

Ho ny n Ier e ia, 
MAPS э > CU HER “el 
PEU OM Шии и gn ~ ~ 
Seo اجه‎ e I ed 
An caia rl Ги 
DECRE TNNT 


" 


^f ID бб eA med f 


КЕТТ NI 
p 


SEE 


Ma n d 


иде 


ï, "a DE WI 


uia 


fi [u > 


Mar ua Mb = 
^el ambos 


bebe e чадыр ~ 


| 


Cu Ira ua 


Uc Sa 


(envoi de J.C. Touzin) 


En aode programaation (AUTO), toujours employer le curseur vers 
le bas pour valider une ligne de programme et non pas ENTER. De 
cette fagon, si on veut corriger une ligne, on n'a qu'à employer 
le curseur haut ou bas pour se déplacer dans le programme et 
aller chercher la ligne désirée sans Être obligé de taper EDIT t 
de ligne. 


Un autre truc: Pour arrêter in LISTing qui défile à l'écran tapez 
CTRL et F5. Pour faire à nouveau défiler le LISTing, appuyez à 
nouveau sur les ames touches. 


Pour éditer une ligne, en principe on doit taper EDIT et le 
numéro de ligne désiré. Mais il existe une autre façon plus 
rapide, Supposons que nous avons un programme avec des lignes 
numérotées de 10 à 50. Nous voulons éditer la ligne 30. Nous 
pouvons faire simplement 29 et le touche du curseur vers le bas. 
Il suffit de se rappeller de taper un numéro de ligne inexistante 
sinon celle-gi sera automatiquement effacée. 


Le principe d'un système d'alarme est aussi simple que celui d'un 
interrupteur, C'est-à-dire l'éternel CIRCUIT OUVERT ou CIRCUIT 
FERME. Ce principe est similaire au fameux JOYSTICK qui ne sont 
ni plus ni moins qu'un ensemble d'interrupteurs. Comme le 2058 
possède 2 ports JOYSTICK et que chaque port possède 5 entrées 
individuels (haut,bas,gauche,droite,feu), оп peut donc pièger 
jusqu'à 10 portes ou fenêtres par exemple. Le programme qui suit 
controle un tel dispositif, Les portes sont reliées au port#i 
(gauche) et les fenêtres au port#2 (droite). On peut spécifier un 
certains délai avant que le système deviennent actifs nous 
permettant ainsi de sortir de la pièce. L'alarme est faites par 
l'intermédiaire de la commande SOUND. Ce signal est présent sur 
le connecteur arrière du 2068, donc disponible à l'amplification. 
Qu bien on remplace la routine des SOUNDS par une avec des 
BEEPs, Alors le signal du ВЕЕР peut être très facilement amplifié 
car il se retrouve au connecteur NIC. 


105-5009 minii 
| "09097, 


à 
ШШ | 
оо سنت‎ 


ш Л 
TAIT HAN d TT 


^0000\ 
00000" 


LJEJEJEJEJEJEJETEJEJE 3 


Nav majmimimimimimimu]u 
NT _, иїшш[ш[ш[ш [шш [ш [ш 
ple ОООООООООО |: 


| TOO O TO IT TTT ` 
| | | ШЕСЕ JIHIZLIE-ZJLJL.L 


LE PROGRAMME 


Nous lisons les JOYSTICKS et nous transformons la valeur 
retournée en binaire (ligne 100-104). Puis nous testons chaque 
bit pour déterminer laquelle ou lesquelles sont à "I", i.e. 
ouvert. Mais si vous voulez tester le programme avec un ou deux 
joysticks, il vaudrait peut-être mieux tester pour les "Ò" car 
les interrupteurs d'un joystick inmobile sont tous ouverts et 
retorne donc la valeur "i"! Les "infractions" se feront si vous 
bougez les joysticks dans un certaines direction provocant la 
fermeture de un ou de plusieurs interrupteurs d'où un "0", La 
routine qui génére l'alarme se retrouve aux lignes 7000-7005. 


Le programme a été écrit pour la protection de portes ou de 
fenêtres sinulées avec des joysticks. Pour des portes оц des 
fenêtres réelles, il faut tester des "i" car si on ouvre une 
porte, le circuit devient ouvert. 


NOTE: Pour tester des interrupteurs au lieu d'un Joystick, 
changer la ligne 21 pour 3 

21 IF ВФ(Х) <>"0" THEN GO SUB 1500: GO SUB 7000: 60 TO 25 
Et la ligne 24 pour: : 

24 IF nn THEN GO SUB 1500: 60 БОВ 7000: BQ TO 27 


0) REM 2068 ALARME version 1.5 

0> REM gag-087 

і: 

2 60 SUB 8000 

3 INPUT "Voulez-vous un delai (o/n) ? "; LINE a$ 

4 IF аб="р" OR a$="0" THEN INPUT "Lequel (sec)? "15: 
PRINT #0; FLASH 15" DELAI ...": PAUSE 5160) 

5 INPUT "": BEEP „5,1 

b LET n= STICK (1,1): LET nn = STICK (2,1): LET flag=0: 60 SUB 100: 60 SUB 20 

8 LET n= STICK (1,2): LET nn = STICK (2,2): LET flagzl 

9 60 SUB 100: 60 SUB 20: SOUND 8,0;9,0: 60 TO & 

10: 

И: 

20 FOR x=8 TO 5 STEP -1 

21 IF b$(x) <) "$" THEN GO SUB 1500: 60 SUB 7000: 50 TD 23 

22 PRINT AT 2+((8-x)44),2+(20 AND flag);" OK. " 

23 NEXT x 

24 LAAN THEN 60 SUB 1500: 60 SUB 7000: 60 TO 27 

25 PRINT AT 18,2+(20 AND flag);" OK. * 

27 RETURN 

98: 


99: 
100 LET 0%="00000000": LET j-8 
101 LET nizn: LET n= INT (n/2) 
102 LET b$(j)2 STR$ (пі-п#2) 
103 IF n THEN LET j=j-1: 60 TO 101 
104 RETURN 
1499: 
1500: 
1810 PRINT АТ 2+((8-x)44),2+(20 AND flag); FLASH 15" ALERTE " 
1520 RETURN 
4999: 
7000: 
7001 SOUND 7,62-2;8,13;9,15;13,11 
7002 FOR 1=150 ТО 200 STEP 2 
7003 SOUND 0,1;2,400-і 
7004 МЕХТ і 
7005 RETURN 
7006: 
7999: 
8000 BORDER 0: PAPER 0: BRIGHT 1: CLS 
8931 LET x=0: GO SUB 8010 
8002 17 x=165; 60 SUB 8010 
8003 60 SUB 8500 
8005 RETURN 
8006: 
8010 INK 2: FOR 12165 TO 35 STEP -32 
8020 PLOT x,i: DRAW 90,0: DRAW 0,-20: DRAW -90,0: DRAW 0,20 
8030 NEXT i: INK & 
8040 RETURN 
` 8041: 
8500 PRINT INVERSE 1;" PORTE  ALARME208B FENETRE " 
8501 RESTORE 
8510 FOR i=0 TO 4: READ a$ 
8520 PRINT АТ 2+i44,12;a$ 
8530 NEXT i 
8540 RETURN 
8590 DATA "avant", "arriere", "gauche", "droite", "sous-sol" 
8591: 
9998 SAVE "alarme": VERIFY "alarme" 


Pas tout à fait, mais presque! 


Ceux qui sont familiers avec le PC ou qui travaillent avec des 
compatibles au bureau connaissent bien les logiciels intégrés du 
type Lotus 123 qui permetttent de passer presque instantanément 
du chiffrier (spreadsheet) au traitement de texte ou à une base 
de données, Et il vous est sans doute arrivé de souhaiter faire 
la nêne chose sur votre üL. 


Et bien, il est possible de le faire et nne très siaplenent. 

Le petit programme qui suit permet en effet de passer rapidement 
de ABACUS à ARCHIVE sans avoir à faire un RESET ou à revenir au 
SUPERBASIC et à "reloader* le programme suivant. 


J'ai utilisé ces deux logiciels car ce sont ceux dont je пе sert 
le plus suivant. Mais rien ne vous empêche de faire la même chose 
avec une autre combinaison comme QUILL ou БАЗЕ. et ARCHIVE, par 
exemple. C'est la capacité des pdrives qui nous limite à deux des 
logiciels PSION, car avec le fichier d'impression (printer dat) 
et la routine de "boot", il ne restera pratiquement plus de place 
sur votre cartouche. Evidemment, ceux qui possèdent une unité de 
disque peuvent installer les quatre logiciels. Il suffira de 
modifier le menu en conséquence. 


L'idée de ce petit programme m'est venue d'un article dans QL 
WORLD. Cependant je l'ai passablement transformé pour ne pas 
revenir à RESET comae il le faisait mais plutôt au menu et 
d'autre part, pour revenir à ICE lorsque j'ai terminé, puisque 
J'ai ce logiciel en permanence sur топ BL. 


Il suffit de prendre une cartouche vierge et d'y copier: 


- boot 
- Archive (оц 6108) 
- Abacus (оц GLSS) 


= printer dat 
(boot étant le programme dont voici le listing.) 


Vous laissez de coté tout le reste, comae help, install bas, 
clone, etr. 


90 REM OL WORLD AVRIL 1985 ET L.LECLERC 
100 CLEAR 
110 WINDOW 512,258,0,0:CS17E 2,1:CLS 
120 AT 3,11:PRINT "POUR ARCHIVE TAPEZ F1" 
130 AT &,11:PRINT "POUR ABACUS TAPEZ F?" 
135 AT 9,11:PRINT "POUR ICE TAPEZ F3" 
140 AS$=INKEYS (-1) 
130 IF CODE(A$):232 THEN GOTO 190 
160 IF CODE(A$)-238 THEN GOTO 200 
165 IF CODE(ASI=240 THEN ICE 
170 БОТО 140 
190 CLS:AT 5,3:PRINT “CHARGEMENT DE ARCHIVE, VERSION 


2,53":ЕХЕС Н MDV1 GLDB:60T0 110 
200 CLS:AT S,4:PRINT “CHARGEMENT DE ABACUS, VERSION 


2,35":EXEC И MDVI GLS5:60T0 110 


Même si l'accès aux drives est un peu lent et que la routine est 
EN SUPERBASIC, vous serez surpris de la vitesse d'exécution et du 
coté pratique et professionnel que cet utilitaire donnera à votre 
GL, en passant rapidement d'un programme à l'autre sans avoir à 
changer les udrives. 


Notez cependant que les logiciels PSION ne libérent pas toujours 
toute la mémoire aprés "quit" et il est possible que vous ayez à 
l'occasion le rapport d'erreur "out of memory". 11 faudra alors 
faire un RESET. 


Louis Leclerc 
1094 Landry 
Ste-Foy 61V 3R7 


tél: 653-0520 


NDLR: Lorsque que vous quittez un logiciel PSION et que vous 
obtenez par la suite le message "out of memory", PSION nous 
conseille (si vous ne voulez pas appuyer sur le RESET) d'activer 
d'une façon quelconque MDV2_ ‚ауес DIR MDV2 par exemple. Ceci 
aurait pour effet de libérer la mémoire pour d'autres 
applications, Réal o 


PONG Bir 
ROLNI 


ТӨТ ТИШ 
РМ 1 


Auteur: Yvon Lavoie 


Si vous êtes fatigué d'avoir à travailler ou à vous amuser avec 
des prograsaes en anglais et qui sont en langage machine, voici 
un ргодгавав qui vous permettra de les traduire facilement, Vous 
n'avez qu'à entrer le petit programme qui suit, charger votre 
programae en Langage machine et faire "RUN" du petit programme. 
On vous demandera alors à quelle adresse vous voulez commencer à 
chercher dans le programme en langage Rachine et à quelle adresse 
vous voulez terminer. On vous demandera ensuite si vous voulez 
seulement lister les caractères du programme ou les lister et les 
modifier, 


Gi vous voulez faire un. test facile, vous avez seulement qu'à 
faire "RUN" de ce petit programme, donner l'adresse 15498 et 
l'adresse 15577 puis répondre "L". Vaus verrez alors le 
commentaire suivant de la ROM du TS2068: START THE TAPE, THEN 
PRESS ANY KEY. Il n'est pas possible de corriger la ROM mais cela 
donne un exemple de ce que l'on peut faire avec ce petit 
utilitaire. - | 


Bonne traduction, 


Bienvenue au Club des Utilisateurs QL. 


Voulez-vous,.,...................... 


* Echanger vos Programmes, 

* Correspondre avec d'autres Utilisateurs. 
* Réaliser des Applications originales. 

* Echanger des idées. 

* Evaluer des Programmes. 


* Avoir une remise de 15% sur Hardware et Software. 


* Et bien d'autres Avantages,,,,,,,,..,.: 


Pour Information ; LE CLUB DES UTILISATEURS QL. 
390 Boul, Central N. 
Québec, GIP 3Р9 
Canada 


Tél: (418) 527-6103 


AVEC mémoire de 
eur monochrome 3.5 p 
is ,ie tout en parfait état, 


Les petites annonces est ouvert 
{tre d! 


a ын ш“ EE" A 
"TILL de PIEN DI 


{il rene re c^ ira i= DT 
ARCHIVE pour classer vos sommaires de oi 


Réal Gagnon 

4978 Henri Julien 
Montreal P.ü. 
H2T 2El 


E: + TIR BG 
Hbonnenent NA раван ds SO